home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 04 - 1988 / 04.09 Sep 88 / HyperChat Stuff / Fred Stauder < prev   
Encoding:
Text File  |  1988-09-06  |  1.7 KB  |  53 lines  |  [TEXT/EDIT]
  1. Listing:  AutoHyperEdit Update Script
  2.  
  3. on arrowkey whichkey-**AutoHyperEdit**—
  4.   global CWSList
  5.     if the shiftkey is down then
  6.         put item 1 of cwslist into T
  7.         put the width of T into TW
  8.         put the height of T into TH
  9.         if whichkey is “down” then set the height of  T to TH - 1
  10.         if whichkey is “up” then set the height of  T to TH + 1
  11.         if whichkey is “left” then set the width of  T to TW - 1
  12.         if whichkey is “right” then set the width of  T to TW + 1
  13.   end if
  14.   if the mouse is down then
  15.     if whichkey = “left” then
  16.       put the mouseH into L
  17.       repeat with i = 1 to the number of items in CWSList
  18.         put the width of item i of Cwslist into w
  19.         set the left of item i of Cwslist to L
  20.         set the width of item i of Cwslist to w
  21.       end repeat
  22.     end if
  23.     
  24.     if whichkey = “right” then
  25.       put the mouseH into R
  26.       repeat with i = 1 to the number of items in CWSList
  27.         put the width of item i of Cwslist into w
  28.         set the right of item i of Cwslist to R
  29.         set the width of item i of Cwslist to w
  30.       end repeat
  31.     end if
  32.     
  33.     if whichkey = “up” then
  34.       put the mouseV into T
  35.       repeat with i = 1 to the number of items in CWSList
  36.         put the height of item i of Cwslist into h
  37.         set the top of item i of Cwslist to T
  38.         set the height of item i of Cwslist to h
  39.       end repeat
  40.     end if
  41.     
  42.     if whichkey = “down” then
  43.       put the MouseV into B
  44.       repeat with i = 1 to the number of items in CWSList
  45.         put the height of item i of Cwslist into h
  46.         set the bottom of item i of Cwslist to B
  47.         set the height of item i of Cwslist to h
  48.       end repeat
  49.     end if
  50.     exit arrowkey
  51.   end if
  52.   pass arrowkey
  53. end arrowkey —**AutoHyperEdit**—